perm filename CONC.F4[1,LCS] blob sn#583760 filedate 1981-04-30 generic text, type T, neo UTF8
00100	7	FORMAT(' TYPE FILE NAME  '$)
00110		TYPE 7
00125		ACCEPT 1,NAM
00150		REAL T,C,A,L
00200		CALL IFILE(1,NAM)
00250		READ(1,1)TT
00275		READ(1,1)TT
00287		READ(1,1)TT
00300	1	FORMAT(A5,5F)
00325	11	FORMAT(4F)
00350		TT=0
00354		CC=0
00358		AA=0
00362		RL=0
00377		Z=0
00400	2	READ(1,1,END=100)J,T,C,A,L
00420	CC	TYPE 11,Z,T,C,A
00500		TT=TT+T
00600		CC=CC+C
00700		AA=AA+A
00800		RL=RL+L
00850		Z=Z+1.
00900		GO TO 2
01000	100	TX=TT/Z
01100		CX=CC/Z
01200		AX=AA/Z
01300		XL=RL/Z
01350		TYPE 11,Z,TT,CC,AA,RL
01400		TYPE 11,TX,CX,AX,XL
01500		END